Option Explicit
Sub A_Sample026()
    Dim myClms As Range
    Dim myRng1 As Range
    Dim myRng2 As Range
    Set myClms = Columns("C:E")		'Nd
    'ǳƨ즹
    For Each myRng1 In myClms.Rows(Rows.Count).Cells
        With myRng1
            If Len(.PrefixCharacter & .Formula) > 0 Then
                Set myRng2 = myRng1	'̤U誺xsŦX
                Exit For
            Else
                With .End(xlUp)
                    If Len(.PrefixCharacter & .Formula) > 0 Then
                        If myRng2 Is Nothing Then
                            Set myRng2 = .Cells(1)
                        Else
                            If myRng2.Row < .Cells(1).Row Then
                                Set myRng2 = .Cells(1)
                            End If
                        End If
                    End If
                End With
            End If
        End With
    Next
    If myRng2 Is Nothing Then
        MsgBox "SJ"
    Else
        MsgBox myRng2.Address
    End If
    Set myClms = Nothing			'
    Set myRng1 = Nothing
    Set myRng2 = Nothing
End Sub
